home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 21.zip
/
BS1 part 21
/
Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].7z
/
Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].adf
/
rexx.lzh
/
CommandLine.pprx
< prev
next >
Wrap
Text File
|
1992-03-13
|
821b
|
45 lines
/*
@BCommandLine @P@ICopyright Gold Disk Inc., February, 1992
This Genie allows you to issue AREXX commands to PPage directly. Recommended for advanced users only.
*/
signal on error
signal on syntax
call ppm_AutoUpdate(0)
defvalue = getclip(ppm_defval)
command = ppm_GetForm("Enter Command",40, "Command:"defvalue)
if command = '' then exit_msg()
/*if upper(left(command, 4)) ~= "PPM_" then command = "ppm_"command*/
if right(command, 1) ~= ')' then command = command"()"
call setclip(ppm_defval, command)
interpret "returnval = "command
call exit_msg(command" = "returnval)
error:
syntax:
do
if rc = 16 then exit_msg()
exit_msg(command ": "errortext(rc))
end
exit_msg:
do
parse arg message
if message ~= '' then call ppm_Inform(1, message,)
call ppm_AutoUpdate(1)
exit
end